#!/usr/bin/perl
#test.pl
#require './servermin-lib.pl'; 
my $user="administrator";
my $password="password";
$success = system("/usr/bin/net ads join -U ".$user."%".$password);
`echo $success > /root/valuu`;
